home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 6
/
Publication_06_19xx_High-Tech_de_Side_B.d64
/
scriptor
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
8KB
|
109 lines
5 ifa=1then200
7 poke3*256+4*16,160+9:poke3*256+4*16+1,13:poke3*256+4*16+2,6*16
10 poke56,48:poke55,0:clr:poke53280,0:poke53281,0
50 bt=12288
100 print"[147][214][211]:0885 [215].[203]."chr$(14)chr$(8)
105 printspc(15)" [211][195][210][201][208][212][207][210] [146]":print" [196]as benutzerfreundliche [212]extsystem
110 [151]50257,16:[151]650,128
120 [153]"(NULL)extbreite (max 250) 80cmdcmd";
122 [141]60000:[139]zz[178]0[167]tb[178]80:[137]125
123 tb[178][197](ww$)
125 [139]tb[179]10[176]tb[177]250[167]10
127 [151]bt[170]1,tb
130 [153]
140 [153]"(NULL)eilen pro (NULL)eite (max 72) 40cmdcmd";
142 [141]60000:ze[178][197](ww$):[139]zz[178]0[167]ze[178]40:[137]146
145 [139]ze[179]2[176]ze[177]72[167]10
146 [151]967,ze:[129]i[178]0[164]8:[151]bt[170]16[170]i,ze:[130]
200 [153]"load (1) editierenwait eines textes
220 print" (2) laden[146] eines textes
230 [153]" (3) speichernwait eines textes
240 print" (4) drucken[146] eines textes
250 [153]" peekitte waehlen (NULL)ie mit den (NULL)iffern 1-4
260 getq$:ifq$=""then260
270 poke970,val(q$):ifval(q$)=0orval(q$)>4then200
300 poke970,val(q$):on peek(970)goto1000,2000,3000,4000
400 goto200
1000 print"[147]
1010 [158]6144[170]of:[156]:of[178]3
1100 [137]200
2000 qq$[178]"loadclose (NULL)adenwait
2010 gosub5000:iffl=1then7000
2020 sys6144+6
2030 ifga>3andga<>7thengosub6000:iffe<>0thenprint:print:printfe$:goto7000
2100 of=3:a=1:loadn$,ga,1
2120 goto1000
3000 qq$="[147] [211]peichern[146]
3010 [141] 5000:[139]fl[178]1[167]7000
3020 [139]ga[179]4[176]ga[178]7[167]3100
3025 [141]6000:[139]fe[178]62[167]3100
3027 [139]fe[179][177]0[167][153]:[153]:[153]fe$:[137]7000
3030 [153]"file schon vorhanden !!!"
3040 [153]"soll es ueberschrieben werden ? (j/n)"
3050 [161]w$:[139]w$[179][177]"j"[175]w$[179][177]"n"[167]3050
3060 [139]w$[178]"n"[167]200
3100 [139]ga[178]1[176]ga[178]7[167][158]57812 n$,ga:[137]3110
3105 [158]57812 "@0:"[170]n$,ga
3110 [151]193,0:[151]194,48
3111 [151]174,[194](961):[151]175,[194](962)[170]1
3113 [158]62954:[137]200
4000 [153]"load"[166]16)"str$ruckenwait
4020 print"[218]ahl der [214]orschubzeilen vor jeder
4030 [153]"(NULL)eite 5cmd";
4035 [141]60000:vz[178][197](ww$):[139]zz[178]0[167]vz[178]5
4040 [139] vz[170]ze[177]72[167]4000
4045 [153]:[153]"str$ruckernummer 4cmd";
4046 [141]60000:dv[178][197](ww$):[139]zz[178]0[167]dv[178]4
4047 [139]dv[179]4[176]dv[177]6[167]4000
4048 [151]144,0:[159]1,dv,1:[160]1:[139]st[178][171]128[167][153]:[153]"str$val(NULL)right$lenvalclose(NULL)(NULL)(NULL)close(NULL)(NULL)val(NULL)val(NULL)(NULL)":[137]7000
4050 [153]:[153]" atnwait lles str$rucken oder
4060 print"[211][146] eitenweise
4070 [161]w$:[139](w$[179][177]"a")[175](w$[179][177]"s")[167]4070
4080 [139]w$[178]"s"[167]4300
4100 [151]bt[170]27,0:[129]ws[178]1[164]9:[141]4317:[130]
4120 [137]200
4300 [153] " (NULL)elche (NULL)eite 1cmd";
4305 [141]60000:ws[178][197](ww$):[139]zz[178]0[167]ws[178]1
4310 [139] ws[179]1 [176] ws[177]9[167] [129]i[178]0[164]zz:[153]"cmd cmd";:[130]:[137]4305
4314 [151]bt[170]27,0:[141]4317:[137]200
4317 [159]1,dv,7:[157]1:[139][194](bt[170]27)[178]1[167]4340
4319 [129]i[178]1[164]vz:[153]:[130]
4320 [151]bt[170]27,1:[151]960,ws:[158]6144[170]18:[139][194](bt[170]27)[178]1[167]4340
4330 [129]i[178]1[164]72[171]vz[171][194](967):[152]1:[130]
4340 [152]1:[160]1:[142]
5000 [141]62000:fl[178]0
5010 [151]211,0:[151]214,12:[158]58640:[153]"(NULL)elche valinheit cmdcmdcmdcmdcmd8cmd";
5011 [141]60000:ga[178][197](ww$):[139]zz[178]0[167]ga[178]8
5012 [139]ga[178]1[176]ga[178]7[167]5090
5013 [139]ga[179]5[176]ga[177]15[167]5010
5020 [151]144,0:[159]1,ga,0:[160]1:[139]st[178][171]128[167][141]63000:fl[178]1:[142]
5090 [139]ga[178]7[167][139][194](818)[170]256[172][194](819)[178]62957[167][141]63000:fl[178]1:[142]
5100 [153][199](13):[142]
6000 [159]1,ga,15:[159]2,ga,2,"0:"[170]n$[170]",p,r"
6010 [132]1,fe,fe$,sp,sk:[160]2:[160]1
6030 [142]
7000 [153]" return drueckenwait"
7010 [161]w$:[139]w$[179][177][199](13)[167]7010
7020 [137]200
60000 zz[178]0:w$[178]"":ww$[178]"":[151]198,0
60010 [161]w$:[151]204,0:[139]w$[178]""[167]60010
60020 as[178][198](w$):[139]as[178]13[167]60100
60030 [139]as[178]20[175]zz[177]0[167]zz[178]zz[171]1:ww$[178][200](ww$,[195](ww$)[171]1):[153]w$;:[137]60010
60035 [139]zz[177][178]3[167]60010
60040 [139]as[179]48[176]as[177]57[167]60010
60050 ww$[178]ww$[170]w$:zz[178]zz[170]1:[153]w$;:[137]60010
60100 [151]205,255:[151]207,0:[151]204,1:[139]zz[177]0[167][153]" "
60110 [142]
62000 [153]"load"qq$:[151]211,0:[151]214,10:[158]58640:[153]"name des textes: ";
62005 ww$[178]"":zz[178]0:[151]198,0
62010 [161]w$:[151]204,0:[139]w$[178]""[167]62010
62020 as[178][198](w$):[139]as[178]13[167]62100
62030 [139]as[178]20[175]zz[177]0[167]zz[178]zz[171]1:ww$[178][200](ww$,[195](ww$)[171]1):[153]w$;:[137]62010
62035 [139]as[179]32[167]62010
62040 [139]zz[177][178]16[167]62010
62050 [139]as[177]127[175]as[179]193[167]62010
62060 ww$[178]ww$[170]w$:zz[178]zz[170]1:[153]w$;:[137]62010
62100 [139]zz[178]0[167]62000
62110 [151]205,255:[151]207,0:[151]204,1:[153]" ":n$[178]ww$:[142]
63000 [153]:[153]:[153]"str$val(NULL)right$lenval (NULL)(NULL)(NULL) (NULL)(NULL)val(NULL)val(NULL)(NULL)":[129]ii[178]0[164]1000:[130]:[142]